home *** CD-ROM | disk | FTP | other *** search
/ Mastering Microsoft Visual Basic 5 / Mastering Microsoft Visual Basic 5.ISO / sampapps / event notification / notifier.cls < prev    next >
Text File  |  1997-01-15  |  1KB  |  54 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Notifier"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11.  
  12. ' This example uses the timer control to generate timer events
  13. ' to simulate an asynchronous task in the Notifier component. Also
  14. ' the timer control is easy to use, it does have the significant
  15. ' overhead of requiring a form to be created to act as the control's
  16. ' parent. If your component does not require a form for other purposes,
  17. ' it would probably be more efficient to use the Window's timers
  18. ' directly rather than the timer control.
  19.  
  20. Event Alarm()
  21.  
  22. Public Property Get Interval() As Long
  23.   Interval = frmMain.TheTimer.Interval
  24. End Property
  25.  
  26. Public Property Let Interval(ByVal vNewValue As Long)
  27.   frmMain.TheTimer.Interval = vNewValue
  28. End Property
  29.  
  30. Public Property Get Enabled() As Boolean
  31.   Enabled = frmMain.TheTimer.Enabled
  32. End Property
  33.  
  34. Public Property Let Enabled(ByVal vNewValue As Boolean)
  35.   frmMain.TheTimer.Enabled = vNewValue
  36. End Property
  37.  
  38. Private Sub Class_Initialize()
  39.   ' Initialize the global object variable
  40.   Set gNotifier = Me
  41. End Sub
  42.  
  43. Private Sub Class_Terminate()
  44.   ' IMPORTANT: set the object variable to Nothing so that its
  45.   ' reference count can return to zero and the object can be
  46.   ' destroyed.
  47.   Set gNotifier = Nothing
  48. End Sub
  49.  
  50. Friend Sub Alarm()
  51.   RaiseEvent Alarm
  52. End Sub
  53.  
  54.